(Finternal_lisp_face_p): Signal error for face alias loops.

diff --git a/src/xfaces.c b/src/xfaces.c
index 07ea34bf736217d67750912c7b950d76ad2b0b7a..b30d673241fd3a06cb1cd110dcf5aee62b1e8853 100644 (file)
--- a/src/xfaces.c
+++ b/src/xfaces.c
@@ -3935,6 +3935,8 @@ Otherwise check for the existence of a global face.  */)
 {
   Lisp_Object lface;
 
+  face = resolve_face_name (face, 1);
+
   if (!NILP (frame))
     {
       CHECK_LIVE_FRAME (frame);